#phân chia thành 3 vùng
par(pch=3, col="red") 
par(mfrow=c(1,3))

#Vẽ vùng phân phối đều rời rạc x thuộc[10,50]
n = 50-10+1
x= seq(10,50,length=n) 
y= 1/n + x - x
tuade1 = paste("Phân phối đều rời rạc x thuộc [10,50] ") 
plot(x,y,type="n",lwd=2,col="blue", main=tuade1, ylab="1/n" ,xlab="n = 41 khi n = a - b + 1 = 50 - 40 + 1")
lines(x, y, type="h")


#Vẽ vùng phân phối chuẩn chính tắc: x thuộc [-4,4]
tuade2 = paste("Phân phối chuẩn chính tắc x thuộc [-4,4]")
x=seq(-4,4,length=200)
y=dnorm(x,mean=0,sd=1)
plot(x,y,type="l",lwd=2,col="red",main=tuade2, xlab="µ = 0, σ ^ 2 = 1.0")


#Vẽ vùng phân phối nhị thức
n <- 30
k <- seq(0, n, by = 1)
plot (k, dbinom(k, n, 0.3), type='l', ylab="Probability", col='black',
      main = "Phân phối nhị thức với tham số n=30, p=0.3",xlab="Possible Values" )
lines(k, dnorm(k,  mean = 0.3, sd = 1), col='red', lwd=2)
